(list
  (cons 'model
     (make-instance 'ModelSwarm #:permitCombat 1  
                                #:prizeForWinning 2 
                                #:colorsFor "culture" )))
